unit Unit44; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Calendar,
  StdCtrls;

type

  { TForm44 }

  TForm44 = class(TForm)
    Button1: TButton;
    Calendar1: TCalendar;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    fecha_hasta : string;
  end; 

var
  Form44: TForm44; 

implementation

{ TForm44 }

procedure TForm44.FormShow(Sender: TObject);
begin
  Calendar1.DateTime := Date;
  fecha_hasta := Calendar1.Date;
end;

procedure TForm44.Button1Click(Sender: TObject);
begin
  fecha_hasta := Calendar1.Date;
  Close;
end;

initialization
  {$I unit44.lrs}

end.

